home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_bas
/
t2win_32.zip
/
_MDIT2W.FRM
< prev
next >
Wrap
Text File
|
1996-05-14
|
7KB
|
257 lines
VERSION 4.00
Begin VB.MDIForm mdiT2W
AutoShowChildren= 0 'False
BackColor = &H00808080&
Caption = "TIME TO WIN 32-Bit DEMO"
ClientHeight = 7335
ClientLeft = 705
ClientTop = 1245
ClientWidth = 10410
Height = 8025
Icon = "_Mdit2w.frx":0000
Left = 645
Top = 615
Width = 10530
Begin Threed.SSPanel SSPanel1
Align = 1 'Align Top
Height = 465
Left = 0
TabIndex = 0
Top = 0
Width = 10410
_Version = 65536
_ExtentX = 18362
_ExtentY = 820
_StockProps = 15
BackColor = 12632256
Begin VB.Timer Timer1
Enabled = 0 'False
Left = 11025
Top = 30
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 300
Left = 11550
Picture = "_Mdit2w.frx":030A
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 6
Top = 75
Visible = 0 'False
Width = 300
End
Begin VB.ComboBox cmb_Group
Height = 315
Left = 2250
TabIndex = 2
Top = 90
Width = 4695
End
Begin VB.Label Label1
Caption = "&Select a group of functions"
Height = 255
Left = 90
TabIndex = 1
Top = 120
Width = 2085
End
End
Begin Threed.SSPanel SSPanel2
Align = 2 'Align Bottom
Height = 420
Left = 0
TabIndex = 3
Top = 6915
Width = 10410
_Version = 65536
_ExtentX = 18362
_ExtentY = 741
_StockProps = 15
BackColor = 12632256
Begin Threed.SSPanel pnl_Timer
Height = 240
Left = 2970
TabIndex = 5
Top = 90
Width = 825
_Version = 65536
_ExtentX = 1455
_ExtentY = 423
_StockProps = 15
BackColor = 12632256
End
Begin Threed.SSPanel pnl_Version
Height = 240
Left = 11340
TabIndex = 8
Top = 90
Width = 510
_Version = 65536
_ExtentX = 900
_ExtentY = 423
_StockProps = 15
BackColor = 12632256
End
Begin VB.Label Label4
AutoSize = -1 'True
Height = 195
Left = 4935
TabIndex = 9
Top = 105
Width = 45
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "TIME2WIN version"
Height = 225
Left = 9765
TabIndex = 7
Tag = "elapsed time for ~ iterations (in ms)"
Top = 105
Width = 1440
End
Begin VB.Label Label2
Caption = "elapsed time for ? iterations (in ms)"
Height = 225
Left = 90
TabIndex = 4
Tag = "elapsed time for ~ iterations (in ms)"
Top = 105
Width = 2805
End
End
Begin VB.Menu mnu_List
Caption = "&Window List"
WindowList = -1 'True
End
Begin VB.Menu mnu_Exit
Caption = "E&xit"
End
End
Attribute VB_Name = "mdiT2W"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim IsLoaded As Integer
Private Sub cmb_Group_Click()
Dim Frm As Form
Select Case cmb_Group.ListIndex
Case 0: Set Frm = frmArray
Case 1: Set Frm = frmBitString
Case 2: Set Frm = frmDayMonth
Case 3: Set Frm = frmDAString
Case 4: Set Frm = frmDALong
Case 5: Set Frm = frmDAType
Case 6: Set Frm = frmIeeenum
Case 7: Set Frm = frmMem
Case 8: Set Frm = frmFile
Case 9: Set Frm = frmCompress
Case 10: Set Frm = frmCrc32
Case 11: Set Frm = frmEncrypt
Case 12: Set Frm = frmMatrix
Case 13: Set Frm = frmIsX
Case 14: Set Frm = frmSerialization
Case 15: Set Frm = frmString
Case 16: Set Frm = frmMisc
Case 17: Set Frm = frmObject
Case 18: Set Frm = frmLanguage
Case 19: Set Frm = frmCrypt
Case 20: Set Frm = frmRegistry
Case 21: Set Frm = frmMediaID
Case 22: Set Frm = frmDIBBitmap
Case 23: Set Frm = frmTile
Case 24: Set Frm = frmEnumPJ
End Select
Load Frm
End Sub
Private Sub MDIForm_Load()
Dim intResult As Integer
Me.WindowState = 2
IsLoaded = False
pnl_Version = Format(cGetVersion(), "#.00")
Call cCenterWindow(Me.hWnd)
Call sub_Check_Project
Call sub_Initialization
Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
Label4.Caption = "Register TIME TO WIN "
Timer1.interval = 124
Timer1.Enabled = True
'intResult = cTaskBarAddIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
MsgBox "3 new functions (see T2WIN-32.HLP) : " & vbCrLf & vbCrLf & "c3DWeightAverage" & vbCrLf & "cFProcessAsciiFile" & vbCrLf & "cFGotoRecord", , "TIME TO WIN (32-Bit) version " & cGetVersion()
IsLoaded = True
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResult As Integer
If (Len(T2WDirTest) > 0) Then
intResult = cChDir(T2WDirInst)
Call cKillFilesAll(T2WDirTest + "\*.*")
Call cKillDir(T2WDirTest)
End If
MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL demo"
intResult = cTaskBarDeleteIcon(mdiT2W.hWnd)
End Sub
Private Sub MDIForm_Resize()
Dim intResult As Integer
If (Me.WindowState = 1) Then
intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
End If
If (Me.WindowState = 2) Then
intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
End If
If (Me.WindowState = 0) Then Me.WindowState = 2
End Sub
Private Sub mnu_Exit_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Label4.Caption = cScrollL(Label4.Caption)
End Sub